00100		TITLE SPRINT 
00250		INTERNAL PRINT
00300	A=1
00400	B=2
00500	C=3
00600	D=4
00700	P=17
00800	LOOP:	PUSHJ	P,TYI
00900		POPJ	P,
01000		CAIN	A,15
01100		JRST	LOOP
01200		CAIN	A,12
01300		JRST	MK1
01400		CAIN	A,53
01500		JRST	MK2
01600		TRNN	B,2
01700		JRST	OUTIT
01800		MOVEI	B,0
01900		MOVE	C,A
02000		MOVEI	A,15
02100		PUSHJ	P,TYO
02200		MOVEI	A,12
02300		PUSHJ	P,TYO
02400		MOVE	A,C
02500	OUTIT:	PUSHJ	P,TYO
02600		JRST	LOOP
02700	
02800	MK1:	TRO	B,2
02900		JRST	LOOP
03000	
03100	MK2:	TRNN	B,2
03200		JRST	OUTIT
03300		MOVEI	B,0
03400		JRST	LOOP
03500	
03550	PRINT:	0
04700		INIT	12,0
04800		SIXBIT	/LPT/
04900		XWD	OBUF,
05000		CALLI	12
05100		OUTBUF	12,2
05200	
05400	COMDLP:	PUSHJ	P,DNIT
05500		PUSHJ	P,LOOP
05600	
05700	EXIT:	MOVEI A,14
06200		RELEASE	11,0
06250		RELEASE 12,0
06300		JRA 16,(16)
08600	
08700	DNIT:	RELEASE	11,0
08800		INIT	11,0
08900		SIXBIT	/DSK/
09000		IBUF
09100		CALLI	12
09150		SETZM FILNAM+3
09200		LOOKUP	11,FILNAM
09300		CALLI	12
09400		INBUF	11,2
09500		POPJ	P,
09600	TYI:	SOSLE	IBUF+2
09700		JRST	OKIN
09800		IN	11,0
09900		JRST	OKIN
10000		STATZ	11,20000
10100		POPJ	P,
10200	
10300		CALLI	12
10400	
10500	OKIN:	ILDB	A,IBUF+1
10600		JUMPE	A,TYI
10700		AOS	(P)
10800		POPJ	P,
10900	
11000	TYO:	SOSG	OBUF+2
11100		OUTPUT	12,0
11200		IDPB	A,OBUF+1
11300		POPJ	P,
11400	
11500	IBUF:	BLOCK	3
11600	OBUF:	BLOCK	3
11900	FILNAM:	SIXBIT/FOR22/
12000		SIXBIT/DAT/
12100		0
12200		0
12500	PDL:	BLOCK 10
12600		END